home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / FromOctaMed.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-12-15  |  1.2 KB  |  56 lines
  1. /****h* SoundFX/FromOctaMed.rexx [1.10] *
  2. *
  3. *  NAME
  4. *    FromOctaMed.rexx
  5. *  COPYRIGHT
  6. *    $VER: FromOctaMed.rexx 1.10 (23.09.98) © by David O'Reilly & Stefan Kost 1998-1998
  7. *  FUNCTION
  8. *    imports the current sample from OctaMed Sound Studio
  9. *  AUTHOR
  10. *    David O'Reilly            dr
  11. *    Stefan Kost            sk
  12. *  CREATION DATE
  13. *    17.Jun.1998
  14. *  MODIFICATION HISTORY
  15. *    23.Sep.1998    V 1.10    adapted to SoundFX (sk)
  16. *                           better type detection (sk)
  17. *    17.Jun.1998    V 1.00    initial version (dr)
  18. *  NOTES
  19. *
  20. *******
  21. */
  22.  
  23. OPTIONS RESULTS
  24. ADDRESS 'OCTAMED_REXX'
  25.  
  26. IN_GETTYPE
  27. smp_type=RESULT
  28.  
  29. IF smp_type=EMPTY THEN DO
  30.     ADDRESS 'REXX_SFX' SFX_Message '"Current Octamed instrument is empty !"'
  31.     EXIT
  32. END
  33. ELSE IF smp_type=SYNTH THEN DO
  34.     ADDRESS 'REXX_SFX' SFX_Message '"Current Octamed instrument is a synth sound !"'
  35.     EXIT
  36. END
  37. ELSE IF smp_type=UNKNOWN THEN DO
  38.     ADDRESS 'REXX_SFX' SFX_Message '"Current Octamed instrument is of unknown type !"'
  39.     EXIT
  40. END
  41.  
  42. IN_SAVE 't:tmp_om2sfx.aiff aiff'
  43. IN_GETNAME
  44. smp_name=RESULT
  45.  
  46. ADDRESS 'REXX_SFX'
  47.  
  48. SFX_SelLoader 'IFF-AIFF'
  49. SFX_LoadSample 't:tmp_om2sfx.aiff'
  50. buf1=RESULT
  51. SFX_RenameBuffer buf1 smp_name
  52. SFX_Activate
  53.  
  54. ADDRESS COMMAND 'delete >nil: t:tmp_om2sfx.aiff'
  55. EXIT
  56.